From: Kenichi Handa Date: Wed, 24 Dec 2003 02:09:40 +0000 (+0000) Subject: (ucs-set-table-for-input): If X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24806 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=b66e1c9d81f4f87a29c66ab708bcb4e656566541;p=emacs.git (ucs-set-table-for-input): If translation-table-for-encode is a symbol, get its translation-table property. --- diff --git a/lisp/international/ucs-tables.el b/lisp/international/ucs-tables.el index d91a4b9fbf2..476c8dfc191 100644 --- a/lisp/international/ucs-tables.el +++ b/lisp/international/ucs-tables.el @@ -2507,6 +2507,8 @@ BUFFER defaults to the current buffer." (coding-system-base default-buffer-file-coding-system)))) (when cs (setq table (coding-system-get cs 'translation-table-for-encode)) + (if (and table (symbolp table)) + (setq table (get table 'translation-table))) (unless (char-table-p table) (setq table (coding-system-get cs 'translation-table-for-input))) (when (char-table-p table)